Column

Area been Affected In Oct. 9, 2019

Column

Affect area data table

---
title: "PG&E Power Shutdown"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Area been Affected In Oct. 9, 2019

```{r message=F, warning=F, include = FALSE}
library(tidyverse)
library(leaflet)
library(sf)
library(DT)
library(shiny)
library(leaflet.extras)

# pge close location
pge <- st_read("/Users/yifeiliu/Documents/R/data/EDA/Blog_draft/pge/pge_simple.gpkg")
pal <- colorNumeric(palette = rcartocolor::carto_pal(7, "PinkYl") , NULL)
# CA zip population
cali_comp <- read_sf("/Users/yifeiliu/Documents/R/data/EDA/Blog_draft/pge/cali_comp.gpkg")
cali_df <- read_csv("/Users/yifeiliu/Documents/R/data/EDA/Blog_draft/pge/cali_comp.csv")
labs <- lapply(seq(nrow(cali_df)), function(i) {
  paste0('

', "City: ",cali_df[i, "city"],'

', "Zip Code: ",cali_df[i, "ZCTA5CE10"],'

', "Population: ",cali_df[i, "pop"], '

', "Affect or not: ", cali_df[i, "affect"], '

', "Affect Area: ", cali_df[i, "Affect_area"], " Acre",'

', "% of Area Affected: ", cali_df[i, "pct"]) }) ``` ```{r} leaflet(options = leafletOptions(dragging = F, minZoom = 5)) %>% addPolygons(data = pge, fillColor = "black", fillOpacity = 0.65, color = "black", weight = 1) %>% addPolygons(data = cali_comp, stroke = FALSE, smoothFactor = 0.3, fillOpacity = 0.7, color = "#03F", fillColor = ~pal(pop), label = lapply(labs, htmltools::HTML)) %>% addProviderTiles("OpenStreetMap.BlackAndWhite") %>% addResetMapButton() ``` Column {data-width=350} ----------------------------------------------------------------------- ### Affect area data table ```{r} info_clean <- cali_df %>% select(city, ZCTA5CE10, affect, Affect_area, pct, pop, household) %>% setNames(c("City", "Zip", "Affect", "Affect Area", "# of Area Affected", "Population", "# Household")) datatable(info_clean, caption = htmltools::tags$caption( style = 'caption-side: bottom; text-align: center;', 'Data Source:', htmltools::em('Data.gov | PG&E') )) ```